home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MegaSort Stack.cpt / MegaSort Stack / card_3801.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  111 lines
  1. -- card: 3801 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2571
  5. -- name: Demo1
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0001
  11. -- rect: left=308 top=112 right=244 bottom=502
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=333 top=28 right=50 bottom=433
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Ascending
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   Put "megaSort(fld unsorted,tab,return," & quote & "t=d,d=a" & quote & ") into fld sorted" into fld command
  37.   Put megasort(fld unsorted,tab,return,"t=d,d=a") into fld sorted
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 00
  44. -- high flags: A003
  45. -- rect: left=332 top=59 right=81 bottom=432
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Descending
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   Put "megaSort(fld unsorted,tab,return," & quote & "t=d,d=d" & quote & ") into fld sorted" into fld command
  57.   Put megasort(fld unsorted,tab,return,"t=d,d=d") into fld sorted
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 5 (button)
  63. -- low flags: 00
  64. -- high flags: A003
  65. -- rect: left=428 top=257 right=313 bottom=506
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 1020 / 1020
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Notes on Dates
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   push card
  77.   visual effect dissolve
  78.   go to card id 8178
  79. end mouseUp
  80.  
  81.  
  82.  
  83.  
  84. -- part contents for background part 4
  85. ----- text -----
  86. jun 14, 1989
  87. 06/13/89
  88. 1989,6,30,13,12,12,7
  89. 2696457600
  90. wednesday, June 15, 1989
  91.  
  92.  
  93. -- part contents for background part 5
  94. ----- text -----
  95. 2696457600
  96. 06/13/89
  97. jun 14, 1989
  98. wednesday, June 15, 1989
  99. 1989,6,30,13,12,12,7
  100.  
  101.  
  102. -- part contents for background part 6
  103. ----- text -----
  104. megaSort(fld unsorted,tab,return,"t=d,d=a") into fld sorted
  105.  
  106. -- part contents for card part 1
  107. ----- text -----
  108. Clicking on the above buttons will show how megaSort can sort dates in any standard format.  
  109.  
  110. Note: 
  111.   2696457600 is 6/12/89 in seconds.